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AB STRACT 


An intermediate level language for display programming hes been 
embedded in LISP 1.5. The language is intended as a basis for higher 
level display languages and includes facilities for both generation and 
analyaio of display information. Through the construction of a helrarchy 
of LISP functions it will be possible to assign a complicated moaning to a 
series of simple light pen motions, or to construct a complex picture . The 
intermediate level language should abstract from the light pen trajectory 
che information which these LISP functions require end provide a basis for 
picture construction which offers alternatives of er.ocnditure of spaca, 
time, sad progressing effort. The first section of this memo discusses the 
syetem end gives programming examples. The details of the examples can be 
understood by reading the second section which discusses the Implementation 
and the LISP functions available. 
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I a A System for Display Language Construction 

The ays Sea provides a language r.acroaaT for the goncrcfcicn of picture 
parts celled o bjects . An object car. be any combination of points, lines, 
and characters. An object la generated by calling the function occroa.il 
(KAM2; DKSCRIPTruiI] described in the second section. The aoat enaevn Kay 
to describe an object la to establish a net point. The net point is 
established utilizing PARAMETER, LOCY, and UDCX statements. The cxcet 
format of these statements is discussed bclov. An object description is 
terminated with a STOP statement. If HAMS is T, the current description 
will be appended to the description of the last object generated. The first 
ezasiple, diap , generates a large object in thlo manner. 

The usar communicates tilth a display through a light pen. As the light 
pen sveepa across the screen, its trajectory can be used in many different 
veys. For example, it nay be used to determine a point, a set of poiota, 
or a lino. Or if a subpart of the disploy has been defined as an object, 
the trajectory stay be simply interpreted as ti pointer to this object or a 
point on the object. The US? functions embedded In the display language 
facilitate acquiring the deta needed to make these different levols of 
Interpretation. 

One problem in utilising the light pen ie to determine vhen it is near 
the screen and not just being moved into piece. This ia solved by using tho 
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width of the field o'! view of the pen as oeesured by a tracking cross. 

This width decreases as the pen approaches tl.o screen end e cantor doc 
is displayed whenever the field of view is less -han u certain prescribable 
limit. This pen diotanco i.s available to M3P. 

Tho approach of the pen to an object in considered significant:. 

Just how close tho pen oust ccue before bcir.g noticed is a proem- variable. 
Its cost rocent position within this distance is recorded; ia addition, no 
arc the last 5 such positions, each at least a proscribed distance frovi the 
preceding one. This represents c crude way of gradually forgetting the 
details of the past. It is also possible to get the current coordinates of 
the pen, obtain a list of all objects currently oeen by the pen, to report 
when the pan sees an object with a noise other then a given nama, or to require 
sn object to move with the pen 

Hie esaupic fenceion sketch In a LISP function using sever.: 1 of these 
featurea. The function uses a subroutine to display five different light 
buttons. If tho light pen is held near one of these buttons, the tracking 
cross will be centered about the point whore tho pen is seen. The preHvan 
interprets pointing at those buttons to mean l) dsau a line, 2) move a line, 

3) delete a line, 4) suppress the crocs ar.d 5) return control to the 
teletype. To draw lines touch the first button, a new line will then be 
drawn whenever tho non loaves the screen and then returns. Tills process is 
terrainsted whenever the pen returns near one of the light buttons. Additional 
LISP functions could be written to expand sketch into a prograa similar to 
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SKETCH PAD. 

Often cnc vants to communicate* to the display certain basic forms i.hich 
arc to be used in constructing larger units. These inputs night be a so t 
of letters which ore to bo parsed into h sentence; or they might fce a set 
of circuit elements or nmole symbols. Xu SRKTCH PAD this is clone by 
indicating the type of form and then moving the light pen so that the 
parameter:- of the form, the end points of a line segment for instance, con 
be abstracted from the trajectory. Alternatively, one could abstract both the 
type and the parameters from the trajectory. The example program arguo 
uses a method developed by Toitelwan which enables the user to teach the 
ma chin e to replace a single line by a known fora. A line is a single 
Liovoner.c (however complex) on the surface of the display without lifting Che 
pon. The LISP data structure is convenient for storing properties of the 
fonts to be recognised. 

The parsing of very largo displayed expressiono, euch ao LISP 
S-expressions for example, cen be difficult for people. Furthermore, 
there may be alternative parsings. People cen be aided by intensifying, 
upon request, grammatical subexpression or cub-objects containing referenced 
sa-tcento or by providing additional displays meaningfully related to the 
first display. These Might be rotated views of an object or shaded objects. 
Further development of the system is needed in this area. 

It is tho task of the programmer to organise a program and data base in 
such a way that the meet needed inputs to a machine will have short repre¬ 
sentations and the moat needed computations will be officiant. The 
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eoenbinotorial aspects ore such that this Bust be done through a aeries o£ 
levels of concepts. An important point is that it is not possible to 
complete an entire level at a tine. The most useful concepts at a given 
level only become clear with the exploration of higher lcvclo. The 
exploration of higher levels without intermediate concepts is, however, 
almost iapoooibly tedious. It is important in an experimental situation to 
have a system where one can cake changes to any dcBired depth and provide 
for the irregular growth and reorganisation of the data base. 

In the present display system, experimentation will probably indicate 
that new statements for macrosal are needed, or that certain objects occur 
so often that more programming effort could well be spent in gcaex-atliig them 
efficiently. To provide for these possibilities macrosal has been programmed 
ac a syntactic extension of the .scope assembly language, e&l. Saji is a 
LISP function which creates objecta from lists of octal numbers. It is 
described in detail in part IX. Provision has also been mads for the 
addition of machine language subroutines which altor the objects as thay are 
displayed. Furthermore, the system is organized so that no statements 
need be nedc about features of the display language which are not needed. 

By embedding these display facilities in LISP one makes available a 
wealth of mechanisms which have proved useful in the analysio and generation 
of language end in the development of system s which can be increased 
incrementally in cocploxity. 
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II. Innlonsnfcst'.on 

The use of LISP In this system has two dlstj.net disadvantage First, 
it is net possible to interrupt the LISP system at any point in time a;:d 
immediately employ its full power. It may be in the midst of garble 
collection. Garbage collection with the current version of PPP-6 7A3P 
renal re e a noticablc time. Second, the data types are too limited. It 
is not convenient to set up the type of list structure used In CKETCH PAP, 
but this can be approximated. A serious problem ic the inability to set 
aside blocks ci! registers to contain di.iploy instructions end to store 
information about light pen actions. 

To get eround thecc problems a fired bnffor of 20words has been 
3CC aside for description of the display. All cctanonicsfcion between LISP 
end tko display goes through this buffer. This buffer contains two kinds 
of data structures; display lists and headers. One header is oosociated 
with each display list, vhich Is a list of half word conmando for Clis 
display. The headers build down frcia the top of the buffer and Che display 
lists build up from the bottom. 

During display an interrupt routine cycles through a diopstch table. 
Dispstehos can occur to a pen track routine, a routine which displays the 
contonts of the dieplay buffer, e line drawing routine, and a routine which 
tarainatos the display. 

The pen track routine displays a cross as was described earlier. In a 
cyudc effort to give tho routine enough display time eccb cycle. It is callad 
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between display of each object in the display buffer. Ueo of the clock 
would be bettor. 

The fornat of the headers in the display buffer is an follows: 


A = ON-OFF bit 
B = Trackinc Cros* jump bit 
C ■ Move with pen bit 


HAMS (Pointer to an aton) 

-(display list length 

pointer to start 
of dieplay list 
- 1 

Pen hit distance 

Pen lilt count 

Subr address 

ABC 

Most recent Y 

Most recent X 

Y 

X 

Y 

X 

_Y 

X 

Y 

X 

X 

X 


Figure 1 Header Format 


Each displey list has a name which is kept as the first word of its 
heeder. flhen an object is referenced by a LISP function, the headers are 
searched for one with the name cautioned. 

The interrupt program cycles through the heedoro. It picks up a 
pointer for a BI£0 instruction frets the right half of the second word of 
each header. Shis LlitO is terminated by a STOP instruction at the end of 
each display list. If the subr address is not 0, then the subr at Chic 
address will be executed when the STOP is reached. 
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If tho light pen la soon during display of some display lint, control 
goes immediately to an interrupt program. Several conditional branchings 
can occur within this program. The interrupt program first rc-displays the 
display list as a check against light pen noise, if the pen is seen a 
second time the pen cross movable bit is chocked. If thic bit is a 1 tho 
pen tracking croso is centered about the point where the light pen vas scan 
and the rest of tho display list is displayed. Otherwise, a check is mode 
to see if the center of the pen croBS is within a opacified minimum distance 
of the point cean. If not, the display list is continued with the light pen 
reenabled. If tho pen is close enough, the coordinates of tho point seen 
are stored in the fifth word of the header, Tho last five words of the 
header contain tha coordinates of points seen by the pen in tho past. Each 
of these history point s is at least c rpeeifiod distance from tho preceding 
one. This distance la in tha left half of tho third word of tho hcadar. Whs 
a new point i3 seen, it is added to the history points if it is far enough 
away from the one most recently stored or if there are none. The number 
of history points la kept in the right half of the third word of the header. 
Thio number can be cot to cero by LISP, Whenever there are more than five 
hlctory points the oldest ono is lost. After tho point soon has been 
appropriately stored, a check is made to sac if the object should move with 
the pen. If bit C is sot, a pointer to the display Hot io tranomitted to 
the pen track routine. The dlaplay list is then finished. 



Dicplay lists arc put into the buffer by the sol language. If a 
line is to be drawn with the pen. A oat point for the line is evented with 
the aal language. Ita display llct io then incremented by the line drawing 
routine. This Incrementoag is terminated when Che pen leaves the ncveesi,. 

DISPLAY FUKCTIONS 

utacrooa!. [X;Y] macrocnl interprets its argut^nto and then 

oallo jjal, on the result. X is Che first 
argument for sal . Y is a description of a display 
Hot for sal . Y io a list of lists, each of 
which is a macro. The first word of each macro 
is an atou which has under the property I4&CRQSAL 
a function of on* argument, macrosol gets this 
function and applies It to the remainder of the 
macro list. The result of this function is a 
list for aal beginning and ending in node l. 

Thin list is prefaced by two integers which 
give respectively the mode that the display 
will end up in and the node in which it oust 
begin, if it Is to interpret this list correctly. 
ptacfosal appends the succoosivo macro expansions, 
using the prefacing intogers to create the proper 
linking of modes. 



Y'.'.o following macro twvd format c s.v ;.u 
die ayitca: 

1. CPAW,JilTrni panecaHc scale intensity) 

Normally the flrct word in a sec pi-int. 

Cilia cCstoE^nt creates a parameter word.. If 
penonablo, ccalc, or intensity io lilL, die 
corresponding field of the porar-Otor word ia 
not enabled., 

2j (LOCY n) 

Croatec a non-displaying Y point word which 
ccts the ccope Y coordinate to n, YUio is 
nprirally the second statement In u act point„ 

3. (IOCS n) 

Creates a non- M ■splaying X point word inileh 
aotc the scope X coordinate te K. This ia 
normally the third and last etatement in a set 
point. 

4. (SXO;’) 

Creates a parameter word i.-lth stop enabled.. 
Thic 5.o normally the last statei-ieot in a dlcplay 
list. 
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5. (ISTOP) 

Creates a parameter word with stop enabled 
and a flag that the previous word has a breakout 
bit. The use of ISTOP is explained iu Che 
description of sal which follows. 

6. (IjOCYIt n) 

Creates a displaying V polut word which sets 
the display Y coordinate to n and displays a 
point. 

7. (LOCXD n) 

Creates a displaying X point word which sets 
the display X coordinate to n and displays a 
point. 

a. CLEt Xj — X c Y„) 

Creates a sequence of non-displaying line 
segments from vector words. The display starts 
at Che loot point displayed or sot by LOCX, LOCY. 
Bach increment has site X - X i+l -X^, 



9. (LUTED X t Yj-X Q Y Q ) 

Croatec a line like LUTE, but displays it. 



s«l[X;Y;2] 


- 11 - 

io. OANLzn x l Tj x 2 y 2 ) 

Or«*ti» c non.displaying vaster c»i';tD'jf 
word. A line will, ht drawn from the surranc 
display coordinates Co the adgv of the display. 
«sa atop* ef tha linn it OfjOYjJ/CX.-X ). 

U. CWSNO.IHKD Xj Yj X 3 Yj) 

Creates a line like LCWCDVS, but displays 

12. (CMA* Z x .X n ) 

Creates a display of character wade wordr 
which ara the PHAMS's of the acoo* X^. Mo spec* 
era inseTtod between the PNAMT'o. 

X la the neac of the display Hat u> be created, 
or T. If X Is Tj then this list Is append'd to 
the lart one created. If the previous list ondr 
In SXVf? (3000^) , the STOfc Is i amoved. If It *ndc 
in 7.370P (A03Q00g) . it not ou'.y reproves ’.his but 
seres the breakout bit (tiOOOOO*) in the previous 
hslf word Y Is a description of rhe list, to be 
crested. There arc tvo fortes for the alnsunts <■. 
Y corresponding to two modes lir the asS'ioMy 
fraction Sol. The function in initially in mo.'-. 
In node 1 eat removes lists of atoms, tvo at n 
time, from Y. lach atom is a atuibnt or 1; boom 
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In mode 1 sal removes lists of atoms* tw si. a 
time, from Y, Keen atem ic a number or is bound 
to one on Cho dotted pair lint Z» For cadi pair 
of lists cal fores ona display half word instruc¬ 
tion by shifting ths numbers on the second Hat 
the number of places specified by the correspond¬ 
ing number on the first li3t u When it encounters 
NIL on Y, it goes into mode 1. In rede ? «£l 
takes numbora or non-numerical atexe one at a tire 
from Y. Ssch number is a display half word. If 
a non-nurierical atom ia encountered, pal looks at 
the pravious number to see if it puts Che display 
into increment or character made. If in character 
rnodo, snl assembler the rNAME of the atcri as 
characters. If In increment inode, cal guts a list 
of full words off the atom's property list with 
tbo indicator SCHAR. It acacmbleo there as Incre¬ 
ment code half words. Consecutive non-numerical 
atoms are assembled together in the same mode. 

When sal finds a number* Che breakout bit is set. 
If sal, finds NIL, it returns Co mode 1. Mode 1 
is more flexible and mode 2 is more economical, 

NIL la not a legal object name. 
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HORB FU13CTIOHS 

Zr tho description below S stands for Che ncae of an object with a sot 
point. W steads for the name of an object with or vlthouC a cat point 


ax[S) 

oy[S] 

8Bv[S] 

sur.ov[Sl 

sxyinc[S;X;Y) 

aclr[ ) 
sdlt[W] 

ptrk[X;Yl 

pur.erki ] 

pxf J 
py[ J 


Returns the current x coordinate of S. 

Returns the current >• coordinate of S- 
Makes object S follow the light pen whenever 
S sees It. Returns S. 

Negates amv. Returns S. 

Increments the set point coordinates of S by 
X.Y. Returns S. 

Clears the display buffer. Returns NIL. 

Deletes object H from the display buffer and 
returns W. 

Starts the pen tracking croas at X,Y and returns 
NIL. 

Stops the display of the pen track cross. 

Returns NIL. 

Return# Che x coordinate of the pen. 

Returns the y coordinate of the pen. 
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ptehp[ J 
•ru[ 1 

sun rn [ ] 

pldvlX;V] 


phclrluj 


Returns ML If Che pen la fa, tram the term< 
Starts the display build up in th^ buff®:/.. 
Display will continue until :iunrn[ 1 io called 

Stops the display and returns ML. 

To use this cocaond, uce iwacros.' l to set up 
a set point at the current pun position followed 
by a zero length relative line end terminated 
with ISTOP. Then call pldw . Inc refute of 
length at least X anu scale X will be added to 
Cbis ofcjoct until the pen leaves the screen. 
Returns NIL. 

Clears Che psn approach history points of object 
W and returns W. 


ph[W] 


phcl(tf;X] 


phc2fXj 


Returns a list of the pen approach history points 
for object W. 

Seta to X the otinireum dister.ee between pen 
approach history points for object U. X is on 
integer between 0 and 1024. 

Sets to X the olnicuo distance between pen approach 
history points which la assumed for newly created 
objects. 



phc2[Xi 


slnl(U;Y] 


sccpy[WI, W2l 

plohf J 


seel[HjY] 


pli'.w[W] 


ptchv£ ] 


puntchwf } 


PjptKj 


pUEjp[Wj 
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Sets to X the xl ;uu dljt.-nca on the aevaen sf 
which the pen can ace an object X is on inte&a 
between 0 and 40. 

Sets to Y Che intensity of object w Returns U.. 
W is en integer between 0 and 7. 

Copies object Wl and names the copy W2. Returns 

Returns s list of oil objects currently being 
seen by the pen. 

Sets the scale of object W to Y. Returns W. 

Y is an integer between 0 and 3. 

Returns the noise of the first object other chan 
W seen by the pen. 

Wait8 until the pen is near the screen and then 
returns NIL. 

Waits until the pen Is not near Che ooreer. and 
then returns NIL. 

If the tracking cross is not following the pen 
and pjp[W] has been executed. Chen when the pen 
sees object W, the tracking croae will be center* 
about the point of W seen. Returns W. 

Negates pjp and returns MIL. 
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poh[ ] Returns the name of the most recent object to 

be seen by the pen or MIL If none have been seen 
since pohe wan executed. 

pohc[ J Sets the lest object seen by the pen to MIL. 

Returns MIL. 

slice[Si Returns a list of the coordinates of the end 

points of the line segments thlch make up object S. 

ssubr(w;Yl Ceuseo the subroutine beginning ot location Y 

to be executed each time object W is displayed. 

siocEv] Intensifies o subexpression of object W which is 

indicated by the light pen. Subexpressions are 
marked in the object by pseudo parentheses which 
ore not displayed. A poeudo left paren is 
indicated by the psraaieter word 600001 ^ snd a 
pseudo right poren by the parameter word 600002g. 

seddEw] Counts the number of pseudo left parens to the 

intensified subpart of W. 
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(PR1NDSF DISP MV EXPONO) 

(DEFUST ((DISP (LAMBDA (N) (PROG (U V) (MACROSAL (QUOTE OISP) ( 
QUOTE ((PARAMETER 123) (LOCY 1) (LOCX 1) (LINED 0 0 0 0) (ISTC 
P)))> (SETO U (EXPAND N NIL)) A (COND ((NULL U) (RETURN NIL))) ( 
MACROSAL T (LIST (COND ((EQUAL (CAR U) (QUOTE U)) (QUOTE (LINED 
000 4))) ((EQUAL (CAR U) (QUOTE D)) (QUOTE (LINED 003 777777 
777774))) ((EQUAL (CAR U) (QUOTE L>) (QUOTE (LINED 0 0 777777777 
774 0))) <T (QUOTE (LINED 0 0 4 0)))) (QUOTE (ISTOP)))) (SETO U 
(COR U)) (GO A))))) EXPR) 

(DEFUST ((MV (LAMBDA (X) (COND ((EQ X (QUOTE U)) (QUOTE D)> ((E 
Q X (QUOTE D)) (QUOTE U>) ((EQ X (QUOTE L)) (QUOTE R)) (T (QUOTE 
L)>)))) EXPR) 

3 

(PRINDEF EXPAND) 

(OEFLIST ((EXPAND (LAMBDA (N EXP) (PROG (A B C D E) (SETQ EXP (Q 
UOTE (U R D R))) START (COND ((ZEROP N) (RETURN EXP))) (SETQ N ( 
PLUS N -1.0)) LOOP (SETQ A (CAR EXP)) (SETQ EXP (CDR EXP)) (SETO 
B (CAR EXP)) (SETQ EXP (CDR EXP)) (SETQ C (CAR EXP)) (SETQ E (NCON 
C E (LIST B A (MV B> A A B C B (MV C) B C C (MV B) C 9 D))) (CON 
D (EXP (GO LOOP))) (SETQ EXP E) (SETO E NIL) (GO START))))) EXPR 
) 

3 
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(PRIMDEF SKETCH) 

(OEFLIST ((SKETCH (LAMBDA (N X) (PROG (U W) (COMO (X (GO A))> (P 
JP (BUTTON (QUOTE S) 100 17 93)) (PJP (BUTTON (QUOTE 0) 300 1700) 

) (PJP (BUTTON (QUOTE M) 500 1700)) (BUTTON (QUOTE P) 70J 1700) 
(PJP (BUTTON (QUOTE R) 1100 2700)) A (POHC) (S6TQ 4 (PLHW MU)) 

3 (COND ((MEMBER W (QUOTE (D M))) (GO C>) ((EQUAL W (QUOTE S)) ( 
GO G)) (( EQUAL W (QUOTE R)) (GO H)) ((EQUAL W (QUOTE P)) (GO I)) 
((EQUAL U (QUOTE M)) (GO E)) ((EQUAL U (QUOTE 0)) (SDLT W))) (G 
0 A) C (SOLT U) (SETQ U W) (BUTTONON M) (SETQ W (PLHW W)) (GO B) 

E (SMY tf) (PUNTCHW) (SUNMV W) (GO A) G (SDLT U) (BUTTONON W) (S 
ETQ U W) 0 (PUNTCHW) (PTCHW) (COND ((GREATERP (PY) 1600) (GO A)) 

) (LI NEORAW (GENSYM) N 1) (GO D) H (SOLT U) (RETURN NIL) I (SOLT 
U) (SETQ U 4) (BUTTONON W) (PUNTRK) (GO A))))) EXPR) 

S 

(PRIMDEF LI REDRAW BUTTON BUTTONON BUTTONON1) 

(OEFLIST ((LINEDRAW (LAMBDA (NAME QUALITY SCALE) (PROG NIL (PTCH 
W) (SAL NAME (APPEND (QUOTE ((0) (0) (0 A))) (CONS (LIST 34114 9 
CALE) (CONS (LIST 0) (APPEND (CONS (LIST (PLUS 227^99 (PY))) (CO 
NS (QUOTE (0)) (LIST (LIST (PLUS 114000 (PX)>)>)> (QUOTE ((0) (4 
00000) (0) (2000))))))) NIL) (PLOW QUALITY SCALE) (RETURN NAME)) 
))) EXPR) 


(OEFLIST ((BUTTON (LAMBDA (NAME X Y) (SXYING (SAL NAME (QUOTE (( 
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9) ( 9 ) (0) (34114) (0) (220000) (0) (114000) (0) (200010) (0) (3 
04000) (0) (200210) (0) (604000) (0) (3000))) NIL) X Y>>>) EXPR) 

(OEFLIST ((3UTT0NQM (LAMBDA (NAME) (BUTTONON1 NAME (SX NAME) ($Y 
NAME ))))) EXPR) 

(OEFLIST ((BUTTONON1 (LAMBDA (NAME X Y) (SXYING (SAL NAME (QUOTE 
((0) (0) (0) (34114) (0) (220000) (0) (114000) (0) (704010) (0) 

(3000))) NIL) X Y))>) ESPR) 

3 



(PRINDEF ARGUS MAKSTRING MAKSTRINGl MAKSTRING2 
MAKSTRINGS) 

DEFUST ((ARGUS (LAMBDA NIL (PROG (U V R Q MERGELI ST NQ) (SETQ 
U (LINEDRAW (QUOTE ARGUS) 21)) (PUNTCHW) (SETQ V (MAKSTRING (SL 
INE U))) (SETQ R (MAP2 V ATREE3 (QUOTE GETC))) (MAP2 AWEIGHTS R 
(FUNCTION (LAMBDA (WEIGHT LIST) (MAP LIST (FUNCTION (LAMBDA (CAN 
DIDATE) (SETQ MERGELIST (MERGE3 MERGELIST))))>))) (COND ((NUlL M 
ERGELIST) (GO A))) (SETQ NQ (CQAR MERGELIST)) (SETQ Q (CAAR MERG 
ELIST)) (MAP MERGELIST (FUNCTION MERGED) A (SOLT U) (MACROSAt. ( 
QUOTE LAST) (LIST (QUOTE (PARAMETER ?. 3 3)) (LIST (QUOTE I.OCY) A 
YMIN) (LIST (QUOTE LOCX) AXMIN) (LIST (COND ((GET Q (QUOTE SCHAR 
)) (QUOTE SCHAR)) (T(QUOTE CHAR))) (COND ((NULL Q> (QUOTE ?)) ( 

T Q))) (QUOTE (STOP)))) (COND ((NOT (EQUAL AMODE (QUOTE TRAIN))) 
(RETURN Q))) (PRINT R) (SETQ U (READ)) (COND ((NOT (EQUAL Q U)) 
(GO 8))) (CSETQ AWEIGHTS (MAP2 AWEIGHTS R (FUNCTION (LAMBDA (X 
Y) (COND ((MEMBER U Y) (PLUS X D) (T X)))))) B (CSETQ ATREES (M 
AP2 V ATREES (QUOTE PUTC))) (RETURN U))))) EXPR) 

(DEFLIST ((MAKSTRING (LAMBDA (LINE) (PROG (U V MIN MAX VI V2) (M 
AKSTRING2 (EVERYOTHER LINE)) (CSETQ AXMIN MIN( oMAKSTRING2 (EVER 
YOTHER (COR LINE))) (CSETQ AYMIN MIN) (RETURN U))))) EXPR) 

(DEFLIST ((MAKSTRING1 (LAMBDA (X) (COND ((GREATERP (CAR X) V2> ( 
LIST NIL (MAKSTRING3 X NIL))) (T (LIST (MAKSTRING3 X NIL) NIL))) 
))) EXPR) 

(DEFLIST ((MAKSTRING2 (LAMBDA (X) (PROG NIL (SETQ MIN (CAR X)) ( 
SETQ MAX (CAR X)) (MAP X (QUO T E MINMAX)) (SETQ V (QUOTIENT (PLUS 
MAX (MINUS MIN)) 3)) (SETQ VI (PLUS MIN V)) (SETQ V2 (PLUS VI ( 
QUOTIENT V 6))) (SETQ U (APPEND (MAKSTRING1 X) U)) (SETQ VI (PLU 
S VI V)) (SETQ V2 (PLUS V2 V)) (SETQ U (APPEND (MAKSTRING1 X) U) 
) (RETURN NIL))))) EXPR) 

(OEFLIST ((MAKSTR I-MGS (LAMBDA*CX LEFT) (COND ((NULL X) 1) ((OR ( 
AND (.EFT <GREATERP (CAR X) V2D (AND (NOT LEFT) (GREATERP VI (CA 
R X)))) (PLUS 1 (MAKSTRING3 CCD* X> (NULL LEFT)))) (T (MAKSTRING 
3 (CDR X) LEFT)))))) EXPR) 


3 



■ 20 - 


(PRINDEF MAP MAP2 SUB1 EVERYOTHER MINMAX MER6E1 
MERGES GETC PUTC) 

(DEFLIST ((MAP (LAMBDA (X FN> (COND ((NUl X) NIL) (T (CONS (FN 
(CAR X)) (MAP (CDR X) FN))))))> EXPR) 

(OEFLIST ((MAP2 (LAMBDA (X Y GN) (COND ((NULL X) NIL) (T (CONS ( 
FN (CAR X) (CAR Y)> (MAP2 (CDR X) (CDR Y) FN))))))) EXPR) 

(OEFLIST ((SU31 (LAMBDA (X) (PLUS 6871947673S X)))) EXPR) 

(DEFLIST ((EVERYOTHER (LAMBDA (X) (COND ((OR (NULL (CDR X)) (NUL 
L (CDDR X))) (LIST (CAR X))) (T (CONS (CAR X) (EVERYOTHER (CDOR 
X)))))))) EXPR) 

(DEFLIST ((MlNMAX (LAMBDA (X) (CONO ((GREATER? X MAX) (SETQ MAX 
X)) ((GREATERP MIN X) (SETQ MIN X)) (T NIL))))) EXPR) 

(DEFLIST ((MERGE1 (LAMBDA (LIST) (COND ((GREATERP (COR LIST) NO) 
(PR0G2 (SETQ NO (CDR LIST)) (SETQ ) (CAR LIST)))) (T NIL))))) E 
XPR) 

(DEFUST ((MERGE3 (LAMBDA (MERGELIST) (COND ((NULL MEROELIST) (L 
1ST (CONS CANDIDATE HEIGHT))) ((EQUAL CANDIDATE (CAAR MERGELIST) 
) (CONS (CONS CANDIDATE (PLUS WEIGHT (CDAR MERGELIST))) (CDR MER 
GELIST))) (T (CONS (CAR MERGELIST) (MERGES (COR MERGELIST))))))) 
) EXPR) 

(DEFLIST ((GETC (LAMBDA (PSTRING TREE) (COND ((NULL PSTRIMG) NIL 
) ((NULL TREE) NIL) ((ZEROP PSTRING) (CAR TREE)) (T (GETC (SU81 
PSTiING) (CDR TREE))))))) EXPR) 

(DEFLIST ((PUTC (LAMBDA (PSTRING TREE) (COND ((NULL PSTRING) TRE 
E) ((MULL TREE) (COND ((ZEROP PSTRING) (LIST (LIST U))) (T (CONS 
NIL (PUTC (SU31 PSTRING) NIL))))) ((ZEROP PSTRING) (COND ((MEMS 
ER U (CAR TREE)) TREE) (T (RPLACA TREE (CONS U (CAR TREE)))))) ( 
T (CONS (CAR TREE) (PUTC (SUB1 PSTRING) (CDR TREE)))))))) EXPR) 



